home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / phone_ch < prev    next >
Internet Message Format  |  1995-03-31  |  13KB
  1. From: Chad Huff <choochoo@maple.circa.ufl.edu>
  2. Subject:  v04i030:  phone_ch - Phone List Manager v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 3610735409 (verify with brik -cv)
  8. Submitted-by: Chad Huff <choochoo@maple.circa.ufl.edu>
  9. Posting-number: Volume 4, Issue 30
  10. Archive-name: phone_ch/part01
  11.  
  12. BEGIN_DOC phone.doc
  13.                           Phonebook 1.0
  14.                           -------------
  15.  
  16.                           by Chad Huff
  17.                   choochoo@maple.circa.ufl.edu
  18.                           March 1, 1992
  19.  
  20.      This is a comprehensive phonelist manager.  It lets you
  21. display, search and manipulate lists.  It allows for multiple
  22. databases which keeps your information better organized and more 
  23. manageable.  It also allows you to switch between databases.  The
  24. display function will view up to eleven names and numbers on the
  25. display at once and lets you quickly scroll up or down through the
  26. list.
  27.  
  28. INSTRUCTIONS:
  29.      Download the program to the HP. Switch to the new directory
  30. and press <BEGIN>.  It will prompt you for the name of a database.
  31. Anything is fine as long as it is not an HP48 command.  You will be
  32. presented with a menu with the following commands:
  33.  
  34. <ADD> This lets you add a name to the list
  35.  
  36. <FIND> This lets you search the list for a given name. If the
  37. search string is found you will be presented with another menu and
  38. the following three choices:
  39.  
  40.      <EXIT> takes you back to the main menu without doing anything.
  41.  
  42.      <DEL> deletes the entry from the list.
  43.  
  44.      <EDIT> allows you to edit the given entry. You are
  45.      presented with the edit menu and the following choices:
  46.  
  47.           <EXIT> returns you to the previous menu and the three
  48.           choices above.
  49.  
  50.           <NUM> allows you to change the number. Hit ENTER when
  51.           done then either press <EXIT> or <NAME>
  52.  
  53.           <NAME> allows you to change the name. Hit ENTER when done
  54.           then either press <EXIT> or <NUM>.
  55.  
  56. If the search string is not found it will return the remainder of
  57. the list that is lexically greater than the search string to the
  58. display.  This allows you to search large lists alphabetically.
  59.  
  60. <LIST> lets you view the list on the display.  Scroll up and down
  61. quickly using the up and down arrow keys.  Use right-shift and the
  62. arrow keys to go to the top or bottom of the list.  Press ATTN to
  63. return to the main menu.
  64.  
  65. <NEW> lets you switch between databases or create new ones.
  66.  
  67. <EXIT> exits the program.  **MAKE SURE YOU EXIT THE PROGRAM THIS
  68. WAY OTHERWISE YOUR CHANGES WILL BE LOST**.
  69.  
  70. Comment:  This is my first attempt at programming the HP48.  I'm
  71. sure it's a little crude.  I tried to work out all the bugs but I'm
  72. sure I didn't catch them all.  If you find any bugs please let me
  73. know or if you have any suggestions.  Let me know what you think
  74. about it if nothing else.  I would appreciate the feedback.  Send
  75. Email to "choochoo@maple.circa.ufl.edu".
  76. Thanx -- Chad
  77. END_DOC
  78.  
  79. BEGIN_ASC phone.asc
  80. %%HP: T(3)A(D)F(.);
  81. "69A20FF72031000000400525F4744069A20FF76C2100000040050514254047A2
  82. 0779200000000000000569000000000000013977920000000000000056000000
  83. 00000000230C1BA44B2A2A2BA4166E195BA4B213097000303435453047A2084E
  84. 203014444484E20406494E44484E2040C494354584E2030E4547547A20B21308
  85. 4E204054859445B21305600040C494354540D9D20E1632C2A207200002020202
  86. 342756164796E67602C49637473F2A2485A1C2A20920000202020205C6561637
  87. 560275169647E2E2E2D13A2485A184E207044943505C4149584E203034C43593
  88. 632B21300B000405485944540D9D20E1632C2A20F10000586F6E65626F6F6B60
  89. 213E2033F2A20DCF1BB8A193632B2130350004035F4254540D9D20E1632A59C1
  90. 78BF13CE229C2A2279E1AFE22387C15BF22D9D20387C13C03233920100000000
  91. 00000105D2C19C2A27C8D13F2A20DCF14B2A23F2A20DCF13C0323F2A25BCF18D
  92. BF178BF13F2A20DCF17C8D1D13A2A9CF12ABF18DBF19C2A26C7D1DBBF19C2A26
  93. C7D13CE22EBBE1AFE22D9D20D13A20DCF1339201000000000000010472C1B213
  94. 05BF22D9D20803A20DCF1B21305DF22DE032339201000000000000469313C19B
  95. 6323FBF1387C1DE032339201000000000000010063C19B632B21305DF2293632
  96. B21300A1003014444430D9D20E1632A59C19C2A276BA1C2A20F0000E416D656A
  97. 347A2084E2010C8B2130AC422C2A20F10000586F6E65602E457D6265627A347A
  98. 2084E2010C8B2130AC422ED2A2387C1DBBF1387C1C2A205300035F4254594E47
  99. 402D20205C6561637560275169647E2E2E29C2A2485A1C2A207000002ED2A248
  100. 5A184E204035F4254584E203034C43593632B2130F11003034C43530D9D20E16
  101. 3247A2084E203014444484E20406494E44484E2040C494354584E2030E454754
  102. 7A20B213084E204054859445B213069112858A1C2A20D20000202023556C6563
  103. 6470216026457E6364796F6E63F2A2485A13F2A24A5A193632B21309C0004064
  104. 94E44440D9D20E163278BF1A59C178BF13CE224B2A2D9AE1AFE22D9D2046CF1C
  105. 2A20120003556162736860235472796E676A347A2084E2010C8B2130AC422DBB
  106. F13392010000000000000105D2C19C2A23C0327C8D1A59C18DBF1DBBF1D13A2A
  107. 9CF12ABF13CE22279E1AFE22D9D208DBF1DBBF184E2060E455D4449435E0CF18
  108. DBF13F2A24A5A127432339201000000000000010472C13392010000000000004
  109. 695D2C1B21305BF22D9D203CE22D5CE1AFE22D9D208DBF192CF1A59C178BF1ED
  110. 2A276BA15BCF1ED2A290DA1DBBF192CF190DA1DBBF192CF1ED2A276BA10DCF13
  111. 87C1858A1C2A20B200002020235472796E67602E4F6470264F657E6463F2A248
  112. 5A184E207044943505C414958DBF146CF1339201000000000000010472C1DBBF
  113. 18DBF1B21305BF228DBF15DF22B21305DF223CE2233920100000000000046931
  114. 3C1AFE22D9D208DBF1DBBF18DBF1858A1C2A20B200002020235472796E67602E
  115. 4F6470264F657E6463F2A2485A1339200000000000000510F17A133920100000
  116. 0000000010472C1B21305DF22DE032339201000000000000010313C19B632B21
  117. 305BF22D9D208DBF1C2A20B10000202020202542525F425A33F2A2485A1C2A20
  118. 32000020202020254D607479702C4963747D13A2485A13392020000000000000
  119. 503392099900000000052104C5A19C2A2F17A1B21305DF2284E203034C435936
  120. 32B2130B04007044943505C4149570D9D20E163278BF1A59C178BF178BF178BF
  121. 13CE224B2A2D9AE1AFE22D9D209C2A276BA1233A2EEDA1B9691E4A2051000380
  122. 0000000000000DBBF1614E1C2A2013000052554353502144545E40245F40234F
  123. 4E44594E455549C2A2DA5E147A20E4A20510006100000000000000E4A2051000
  124. 0000000000000000B2130DBBF1AE8C19C2A2E0CF10A132D6E201096D6E201096
  125. 3F2A2A9CF1DBBF190DA19C2A276BA1B0BC1803A25BCF1A59C18DBF1C2A209000
  126. 0E2023F2A20DCF1C2A20F1000D2D2D2D2D2D2D2D2D2D2D2D202DBBF176BA19C2
  127. A2DA5E1803A20DCF176BA176BA1C2A20700000276BA19C2A2DA5E1803A2A9CF1
  128. D6E20109690DA19C2A276BA1233A2EEDA1B9691E4A2051000000000000000000
  129. 092CF1E4A20510009100000000000000DBBF1ED2A2387C1233A25BCF1DBBF123
  130. 3A25BCF1AE8C13F2A20DCF1DBBF1ED2A2387C1E0CF1AE8C1C4232634E1DCC028
  131. DBF147A20B21300F2E1B21305BF22D9D20C2A20D1000020202020202542525F4
  132. 25A33F2A2485A1C2A205200002020202020254D607479702C4963747D13A2485
  133. A13392020000000000000503392099900000000052104C5A1339200000000000
  134. 000510F17A13F2A246CF1B21305DF2284E203034C43593632B2130AA30030445
  135. 4C430D9D20E1632DBBF1A59C178BF178BF13F2A276BA15BCF178BF13CE229C2A
  136. 2279E1AFE22D9D208DBF178BF19C2A276BA1B21305DF2290DA13F2A276BA15BC
  137. F18DBF19C2A290DA1387C1339202000000000000030339209990000000000050
  138. 4C5A1C2A203200002020202020202024454C454455444233A2485A1339200000
  139. 000000000510F17A1BB8A193632B21305210030E4547530D9D20E1632D13A247
  140. 2C1BB8A193632B2130D2000405444944540D9D20E163278BF1E0CF1A59C178BF
  141. 178BF13F2A276BA15BCF178BF13CE229C2A2279E1AFE22D9D208DBF178BF19C2
  142. A276BA1B21305DF2290DA13F2A276BA178BF19C2A276BA15BCF1A59C18DBF147
  143. A2084E2040E414D45484E2030E457D647A20B213047A20B213047A20B213047A
  144. 20C2A20D00005485944584E205054E4445444B2130B2130691123F2A24A5A127
  145. 43293632B21306310030E457D630D9D20E163292CF1DBBF184E2010C8ED2A238
  146. 7C1AC422C2A20F200044F4E45402D202E457D626562702348616E67656469C2A
  147. 2485A1C2A207000002ED2A2485A1339202000000000000050339209990000000
  148. 0005204C5A13F2A24A5A193632B2130DC00040E414D45440D9D20E163278BF1E
  149. 0CF184E2010C8ED2A2387C1AC422DBBF1C2A20B200044F4E45402D202E416D65
  150. 602348616E67656469C2A2485A1C2A20900000202ED2A2485A13392020000000
  151. 000000503392099900000000005204C5A13F2A24A5A193632B21302D0005054E
  152. 444544450D9D20E16322ABF184E2060E455D4449435ED2A2387C1DBBF10DCF13
  153. 87C1DBBF13F2A24A5A1BB8A193632B21307600060E455D444943560D9D20E163
  154. 2858A1803A2485A1ED2A2485A147A2084E20405444944584E20304454C447A20
  155. B213047A20B213047A20B213047A20C2A20D000054859445D9D20E16328DBF1B
  156. B8A193632B2130B2130B21306911293632B21300C00040441445144069A20FF7
  157. 000003F2105024547494E450D9D20E16323C032D13A25D2C184E20400525F474
  158. 84E204044144514491A1A59C178BF178BF13CE224B2A2279E1AFE22D9D203FBF
  159. 1C2A20F300054E64756270247865602E616D656A0F6660216024416471626163
  160. 756A347A2084E2010C8B2130AC42278BF162BC1B21305BF22D9D203CE229C2A2
  161. 279E1AFE22D9D208DBF1B0BC1C2A20F70008496470254E64756270247F602573
  162. 7560247869637A0441647162616375602F627024797075602478656A0E616D65
  163. 602F666021602E6567702F6E656E2DBBF184E2010C8ED2A2387C1AC42278BF16
  164. 2BC1EB3A1B21305BF22D9D2046CF1C2A20770000527563737021602B65697026
  165. 6F6270216A0441647162616375602F627024797075602478656A0E616D65602F
  166. 666021602E6567702F6E656E247A2084E203014C474B2130AC42278BF162BC1B
  167. 21305DF22B21305DF2278BF13CE2268BC1D13A2D9AE1AFE22D9D208DBF147A20
  168. B2130B21305DF22B51A1DBBF162BC1DBBF184E203034C4352743284E20404414
  169. 4514DBBF1DCC02B51A1B51A1ED2A269112DE032D13A2063C19B63293632B2130
  170. C1C8"
  171. END_ASC
  172.  
  173. BYTES: #8C1Ch 2857.5
  174.  
  175. BEGIN_UU phone.uue
  176. begin 644 PHONE.
  177. M2%!(4#0X+466*O!_`A,````$4%)/1P26*O!_QA(````$4%!!4@1T*G"7`@``
  178. M`````%"6````````$)-W*0````````!E`````````#+`L4JTHJ*R2F'FD;5*
  179. M*S&0!P`#0U-4`W0J@.0"`T%$1$@N0&"4Y$2$Y`($3$E35$@N,.!4=$6G`BLQ
  180. M@.0"!$58250K,5`&``1,25-4!)TMX&$C+"IP`@`@("`@0W)E871I;F<@3&ES
  181. M=/.B0E@:+"J0`@`@("`@4&QE87-E(%=A:70N+BX=HT)8&D@N<$"4-`7%%)2%
  182. MY`(#0TQ3.3:R$@.P`$!0A)5$1=#9`AXVPJ("'P``A?;F5B;V]K8&$N,",R\J
  183. MT/RQBQHY-K(2`U,`0##U)$5%T-D"'C:BE1R'^S'L(LFB(I<>^BXR>!RU+]+9
  184. M`H/',0PC,RD0````````$%`M',FB<HP=\Z("S1^THC(O*M#\,0PC\Z)2RQ_8
  185. M^W&X'_.B`LT?Q]C1,2J:_"&Z']C[D2PJQM?1NQ_)HF)\'<,NXKL>^B[2V0(=
  186. MHP+-'S,I$````````!!`)QPK,5#[(ITM@#`JT/RQ$@/5+](.(S,I$```````
  187. M`&0Y,1RY-C*_'X/'T0XC,RD0````````$``V'+DVLA(#U2^28R,K,0`:``-!
  188. M1$0#G2W@82-:R9$L*F>KP:("#P#@%-96ID.G`D@N$,"X$@/*),*B`A\``(7V
  189. MYE8&XE37)E8FIT.G`D@N$,"X$@/*).(M*H/'T;L?@\?!H@(U`##U)$65Y'0$
  190. MT@("Q586-E<&<A661N?BXI(L*H2EP:("!P``XBTJA*6!Y`($4T]25$@N,##$
  191. M-)5C(RLQ\!$``T-,4P.=+>!A(W0J@.0"`T%$1$@N0&"4Y$2$Y`($3$E35$@N
  192. M,.!4=$6G`BLQ@.0"!$58250K,6`9(5BHP:("+0```@(R5<96-D8'$@9B5.<V
  193. M1I?VYC8O*H2E,2\JI*618R,K,9`,``1&24Y$!)TMX&$CA_NAE1R'^S'L(K2B
  194. MTJD>^B[2V0)D_,&B`B$`,%46)C>&!C)%)Y?F=J9#IP)(+A#`N!(#RB32NQ\S
  195. M*1`````````04"T<R:(R#"/'V*&5'-C[T;L?':.BR1^B^S'L(G+IH>\BG2V`
  196. MO1^]^X'D`@9.54U$25,._(&]'_.B0EH:<C0RDP(!`````````73",9,"`0``
  197. M````0);5PK$2`[4OTMD"PR[2Q1[Z+M+9`MC[D<(?6LEQN!_>HG*V&K7\X2TJ
  198. M":W1NQ\I_)'0&KW[D<(?WJ)RMAK0_#%X'%BHP:("*P```@(R12>7YG8&XO1&
  199. M!V+T5N=&-B\JA*6!Y`('1$E34$Q!6=C[0<8?,RD0````````$$`G'+W[@;T?
  200. M*S%0^R+8^U'](BLQ4/TBPRXRDP(!``````!`EA/#H>\BG2V`O1^]^X&]'UBH
  201. MP:("*P```@(R12>7YG8&XO1&!V+T5N=&-B\JA*4QDP(```````!0`1^G,9,"
  202. M`0````````%TPK$2`]4OT@XC,RD0````````$#`Q'+DVLA(#M2_2V0+8^\&B
  203. M`AL```("`@)2)"7U)*4S+RJ$I<&B`B,```("`@)2U`9'EP?"E#9'US$JA*4Q
  204. MDP("````````!3,ID)D`````4!)`7!K)HO)Q&BLQ4/TB2"XP,,0TE6,C*S&P
  205. M0``'1$E34$Q!60>=+>!A(X?[H94<A_MQN!^'^S'L(K2BTJD>^B[2V0+)HG*V
  206. M&C*CXMX:FY;AI`(5`#`(````````T+L?%N3!H@(Q```E530U!1)$1>4$0O4$
  207. M,O3D1)7D5%64+"JMY4&G`DXJ4`$`%@````````!.*E`!````````````*S'0
  208. MNQ_JR)$L*@[\`1HC;2X0D-;F`@%I\Z*BR1^]^Y'0&LFB<K8:"\N!,"JU_*&5
  209. M'-C[P:(""0#@`C(O*M#\P:("'P#0TM+2TM+2TM+2TM("TKL?9ZN1+"JMY8$P
  210. M*M#\<;8:9ZO!H@('``!RMAK)HM):'@BCHLD?;2X0D);0&LFB<K8:,J/BWAJ;
  211. MEN&D`A4```````````"0PA].*E`!`!D`````````O?OA+2J#QR$S*K7\T;L?
  212. M,J-2RQ_JR#$O*M#\T;L?WJ(R>!P._*&.'$PR8D,>S0R"O1]T*K`2`_#BL1(#
  213. MM2_2V0(L*M`!`"`@("`@($524D]2.O.B0E@:+"I0`@`@("`@("!%;7!T>2!,
  214. M:7-T':-"6!HS*2````````!0,),"F0D`````)0'$I3&3`@```````%`!'Z<Q
  215. M+RID_+$2`]4O@N0"`T-,4SDVLA(#J@,P0%3$--#9`AXVTKL?6LEQN!^'^S$O
  216. M*F>K4<L?A_LQ["+)HB*7'OHNTMD"V/MQN!_)HG*V&BLQ4/TB":TQ+RIGJU'+
  217. M']C[D2PJ":TQ>!PS*2`````````P,),"F0D```````7$I<&B`B,```("`@("
  218. M`@)"5,141%5$)#,JA*4QDP(```````!0`1^GL8L:.3:R$@,E`3#@5'0UT-D"
  219. M'C;2,2ITPK&+&CDVLA(#+0!`4$241$70V0(>-G*X'P[\H94<A_MQN!_SHG*V
  220. M&K7\<;@?PRZ2+"IRZ:'O(ITM@+T?A_N1+"IGJ[$2`]4ODM`:\Z)RMAJ'^Y$L
  221. M*F>K4<L?6LF!O1]T*H#D`@1.04U%2"XPX%371J<"*S%`IP(K,4"G`BLQ0*<"
  222. M+"K0``!%6$E42"Y04.1$5$2T$@,K,6`9(?.B0EH:<C228R,K,6`3``-.=6T#
  223. MG2W@82,I_-&['T@N$,#H+2J#QZ%,(BPJ\`(`1$].12`M($YU;6)E<B!#:&%N
  224. M9V5DR:)"6!HL*G```"#>HD)8&C,I(````````%`PDP*9"0````!0`L2E,2\J
  225. MI*618R,K,=`,``1.04U%!)TMX&$CA_OAP!](+A#`Z"TJ@\>A3"*]^\&B`BL`
  226. M0/3D5`32`N(4UE8&,H06YG961I8L*H2EP:(""0```N(M*H2E,9,"`@``````
  227. M``4S*9"9```````E0%P:\Z)"6AHY-K(2`](`4%#D1%1$5-#9`AXV(KH?2"Y@
  228. MX%351)0TY2TJ@\?1NQ_0_#%X'+W[,2\JI*6QBQHY-K(2`V<`8.!4U424-&70
  229. MV0(>-H*%&@BC0E@:WJ)"6!IT*H#D`@1%1$E42"XP0%3$1*<"*S%`IP(K,4"G
  230. M`BLQ0*<"+"K0``!%6$E4G2W@82/8^[&+&CDVLA(#*S&P$@.6$9)C(RLQ``P`
  231. M!$1!5$$$EBKP?P``,"\!!4)%1TE.!9TMX&$CPS#2,2K5PH'D`@104D]'2"Y`
  232. M0!1$%409&EK)<;@?A_LQ["*THB*7'OHNTMD"\_O!H@(_`%#D1E<F!T*'5@;B
  233. M%M96IO!F!A(&0A1&%R86-E>F0Z<"2"X0P+@2`\HD<K@?)LNQ$@.U+]+9`L,N
  234. MDBPJ<NFA[R*=+8"]'PO+P:("?P"`E$8'4N1&5R8'0O<&4C=7!D*'EC:G0!1&
  235. M%R86-E<&\B8'0I<'5P9"AU:FX!;65@;R9@82!N)6=@?RYE;FTKL?2"X0P.@M
  236. M*H/'H4PBA_MALAR^H[$2`[4OTMD"9/S!H@)W```E5S8W!Q(&LE:6!V+V)@<2
  237. MID`41A<F%C97!O(F!T*7!U<&0H=6IN`6UE8&\F8&$@;B5G8'\N96YD*G`D@N
  238. M,!#$=+02`\HD<K@?)LNQ$@/5+[(2`]4O<K@?PRYBN!P=H]*I'OHNTMD"V/M!
  239. MIP(K,;`2`]4OLA4:O?MALAR]^X'D`@-#3%-R-(+D`@1$051!O?O1S"!;H;$5
  240. 5&MZB8ADA[3#2,2I@PY%K(SDVLA(#
  241. `
  242. end
  243. END_UU
  244.